home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / gfx / misc / MakeWebPic.lha / MakeWebPic / picc < prev    next >
Text File  |  1999-09-07  |  2KB  |  59 lines
  1. /**
  2.  
  3. .k par
  4.  
  5. rx picc <par>
  6.  
  7. END
  8.  
  9. Programm zum Untersuchen aud schadhafte Bilder
  10.  
  11. **/
  12.  
  13. ARG par
  14. PRAGMA('P',-1)
  15.  
  16. SAY ''
  17. error = 0
  18. kdat  = ''
  19.  
  20. IF par = "" THEN par = "#?"
  21.  
  22. ADDRESS COMMAND 'jiv >t:jiv.temp hide delay=0 'par
  23.  
  24. OPEN(file,'t:jiv.temp')
  25.  
  26. DO UNTIL EOF(file)
  27.   line = READLN(file)
  28.   IF (ABBREV(line,' ') & error = 0 & kdat ~= "") THEN SAY kdat || ' = ' || type
  29.   IF ABBREV(line,'Read')   THEN DO
  30.                                   kdat = SUBSTR(DELSTR(line,LASTPOS('"',line)),POS('"',line)+1)
  31.                                   type = SUBWORD(line,2,1)
  32.                                 END
  33.   IF ABBREV(type,'file')  THEN type = typex
  34.   IF ABBREV(line,'Warng') THEN typex = SUBWORD(line,3,1)
  35.   IF ABBREV(line,' ')     THEN DO
  36.                                  kdat  = ""
  37.                                  typex = ""
  38.                                  type  = ""
  39.                                  anim  = 0
  40.                                  error = 0
  41.                                END
  42.   IF (ABBREV(line,"It's a") & anim = 0) THEN DO
  43.                                                type = type || '-Anim'
  44.                                                anim = 1
  45.                                              END
  46.  
  47.   IF (ABBREV(line,'Error') & kdat ~= "")
  48.     THEN DO
  49.            IF LASTPOS('/',par) = 0 THEN dat = kdat
  50.                                    ELSE dat = DELSTR(par,LASTPOS('/',par)+1) || kdat
  51.            SAY '0A'x || 'Error in file "' || dat || '" (Datantype = ' || type ')' || '0A'x
  52.            error = 1
  53.            SAY ''
  54.          END
  55. END
  56. CLOSE(file)
  57. SAY ''
  58. EXIT
  59.